home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / wxsym.gs < prev    next >
Text File  |  1998-04-23  |  675b  |  30 lines
  1. *  Draws all wx symbols
  2. *
  3. *  Note:  A file must be open to issue a set command.
  4. *         (This will be fixed in a future version).
  5. *         open a file before running this script, or 
  6. *         change the file name below to a data descriptor
  7. *         file that is on your system. 
  8.  
  9. function main (args) 
  10.  
  11.   'query file'
  12.   if (sublin(result,1) = "No Files Open") 
  13.     'open /local/lib/grads/masklow.ctl'
  14.   endif
  15.   wx = 1
  16.   x = 1
  17.   y = 7.2
  18.   'set string 1 c 6'
  19.   'set strsiz 0.25'
  20.   while (wx<42) 
  21.     'draw wxsym 'wx' 'x' 'y' 0.7 -1 6'
  22.     'draw string 'x' '%(y-0.55)%' 'wx
  23.     wx = wx + 1
  24.     x = x + 1
  25.     if (x > 10) 
  26.       x = 1
  27.       y = y - 1.5
  28.     endif
  29.   endwhile 
  30.